home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d16 / pbwindow.arc / PBWINDOW.INC < prev    next >
Encoding:
Text File  |  1990-09-10  |  3.8 KB  |  94 lines
  1. $IF 0
  2. ===================================================================
  3.   PBWindow.Inc   for PowerBASIC version 2.1
  4.  This $Include file is used with PBWindo2.Pbu to load Windows for use
  5.  with PowerBasic. Routined in this $include, and in the Unit, PWindow.PBU
  6.  are
  7.  Copr. 1990 Barry Erick All Rights Reserved.
  8. ===================================================================
  9. $ENDIF
  10.  
  11. ' The declares are not necessary and are for your information.
  12. DECLARE FUNCTION GetAttribute%(Integer,Integer)
  13. DECLARE SUB Getforandback(Integer,integer,integer)
  14. DECLARE SUB Prtbox(Integer,Integer,STRING)
  15. DECLARE SUB Rackett()
  16. DECLARE SUB RemoveBox()
  17. DECLARE SUB BoxTitle(Integer,STRING,Integer,Integer)
  18. DECLARE SUB MakeBox(Integer,Integer,Integer,Integer,Integer,Integer,_
  19.             Integer,Integer,Integer,Integer,Integer)
  20. DECLARE SUB ZoomBox(Integer,Integer,Integer,Integer,Integer,Integer,_
  21.             Integer,Integer,Integer,Integer,Integer)
  22. DECLARE SUB Boxscroll(Integer,Integer,Integer)
  23. DECLARE SUB CtrBox(Integer,STRING)
  24. DECLARE SUB CtrAllBox(Integer,Integer,STRING)
  25. DECLARE SUB PrtEol(Integer,Integer)
  26. DECLARE SUB PrtEolBox(Integer,Integer,String)
  27. DECLARE SUB NewBoxColor(Integer,Integer)
  28. DECLARE SUB PrtAttrBox(INTEGER,Integer,String,Integer,Integer)
  29. DECLARE SUB BuildMenu(Integer,Integer,Integer,Integer,_
  30.         Integer,Integer,Integer,Integer,Integer,STRING ARRAY,Integer,_
  31.         Integer)
  32. DECLARE SUB ClearBox(Integer,Integer)
  33. DECLARE SUB Recolor(Integer,Integer,Integer,Integer)
  34. DECLARE SUB WriteScreenArea(Integer,Integer,Integer,Integer,String,String)
  35. DECLARE SUB PBWindowInit()
  36. DECLARE SUB ScreenInit(Integer,Integer)
  37. DECLARE SUB SaveScreenArea(Integer,Integer,Integer,_
  38.         Integer,String,String)
  39. DECLARE FUNCTION WhatCpu%()
  40.  
  41. PUBLIC Max.Window%,AutoBuildTime%   'max num of windows, automatic time
  42. PUBLIC Wpt%  'current window pointer
  43. PUBLIC PBWr%(),PBWc%(),PBWh%(),PBWw%() 'row,colum, height, width
  44. PUBLIC Shadows%() 'type of shadow for each (wpt%)
  45. PUBLIC noise%(),boxkinw%() 'is noise active and type of box for each wpt%
  46. PUBLIC vert$()     ' for parsing words for title
  47. PUBLIC attrs%()    ' each wpt% attribute
  48. PUBLIC boxborderattrs%()  'each wpt border attribute
  49. PUBLIC mlist$()    'names of %MaxMenuList
  50. PUBLIC NoNoise%    'True = do not make noise
  51. PUBLIC mbc%        ' last windows background color
  52. PUBLIC mfc%       ' last windows foreground color
  53. PUBLIC mbfc%,mbbc% ' last windows border foreground and background color
  54. PUBLIC fc%,bc%,bfc%,bbc%
  55. PUBLIC Backc%,Forec%
  56. PUBLIC ScreenSEGMENT%,RetraceMode%  'users screen SEGMENT and snow check.
  57. PUBLIC IsColr%,VidMode%
  58. PUBLIC Bar3or4Off%, Bar0to2Off%
  59. PUBLIC UnderDevelopment%
  60. PUBLIC Module$
  61.  
  62. %MaxmenuList = 20 ' DO NOT CHANGE, It is 20 in the .PBU
  63.           ' and this is for the user's program and the two
  64.           'must match. This MAY change in future versions
  65. Bar3or4Off% = 0   'default values
  66. Bar0to2Off% = 3   'see doc file
  67. UnderDevelopment% = 0  'this can be changed in your program while
  68.                'you are developing your program
  69. $IF 0
  70.                 DO NOT CHANGE IT HERE, but add it to
  71.                 your program if you want to check for
  72.                 parameter errors in makebox. This should
  73.                 be after the $Include statement in your
  74.                 program. When development is finished,
  75.                 either remove the statement you added,
  76.                 or make it %False. To make it work, use
  77.                  UnderDevelopment% = %True in the program
  78.              or UnderDevelopment = -1
  79. $ENDIF
  80. CALL PbWindowInit   'call the initialization routine
  81. $SEGMENT
  82. $LINK "pbwobj.obj"
  83. $SEGMENT
  84.  
  85. $IF 0
  86.   Note.. the program is fully functionable and not cripled. The
  87.  registered version allows a smaller version, however.
  88. $ENDIF
  89.  
  90. $IF  %PBWSMALL      'avail with registered version only
  91.  $INCLUDE "PBWSMALL.INC"
  92. $ELSE               'default version with all versions
  93.  $LINK "PBWindow.pbu"
  94. $ENDIF